home *** CD-ROM | disk | FTP | other *** search
/ QuickTime VR Showcase / QuickTime VR Showcase.iso / media / gallery.Dxr / 00001.ls next >
Encoding:
Text File  |  1996-12-29  |  452 b   |  17 lines
  1. on startMovie
  2.   set the regPoint of member "demo btn" to point(-1000, -1000)
  3.   updateStage()
  4. end
  5.  
  6. on stopMovie
  7.   global gObjCaptain
  8.   set clearList to [4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23]
  9.   repeat with x in clearList
  10.     set object to getaProp(the pRollRegistry of gObjCaptain, x)
  11.     if objectp(object) then
  12.       dispose(object)
  13.       setaProp(the pRollRegistry of gObjCaptain, x, 0)
  14.     end if
  15.   end repeat
  16. end
  17.